home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / util / simulare.sit / Simula 4.07 Reference / card_49457.txt < prev    next >
Text File  |  1989-05-02  |  2KB  |  94 lines
  1. -- card: 49457 from stack: in.07 Reference
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 13647
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=339 top=133 right=155 bottom=432
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Open & Close
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 51425
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: A004
  31. -- rect: left=16 top=279 right=301 bottom=100
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Explain
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   go to card id 51960
  43. end mouseUp
  44.  
  45.  
  46.  
  47.  
  48. -- part 4 (button)
  49. -- low flags: 00
  50. -- high flags: A004
  51. -- rect: left=374 top=290 right=312 bottom=458
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Imagefiles
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   go to card id 48969
  63. end mouseUp
  64.  
  65.  
  66.  
  67.  
  68. -- part contents for background part 2
  69. ----- text -----
  70. Outfile
  71.  
  72. -- part contents for background part 1
  73. ----- text -----
  74. Outfiles are record-oriented output files. 
  75.  
  76. File class Outfile;
  77. begin
  78.    Boolean procedure Open(Fileimage); text Fileimage; ...;
  79.    Boolean procedure Close; ...;
  80.    procedure Outimage; ...;
  81.    procedure BreakOutimage; ...;
  82.    procedure Outchar(C); character C; ...;
  83.    procedure Outtext(T); text T; ...;
  84.    procedure Outint(Inum,Width); integer Inum,Width; ...;
  85.    procedure Outfix(Rnum,Ndec,Width); (long) real Rnum; integer Ndec,Width; ...;
  86.    procedure Outreal(Rnum,Ndec,Width); (long) real Rnum; integer Ndec,Width; ...;
  87. end;
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.